home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1998…eptember: Technology Seed / September 98 ADC Seed CD.toast / LaserWriter 8.6b5 Seed / LaserWriter 8.6b5 / PrintingLib / PrintingLib.rsrc / PS_-8175 < prev    next >
Encoding:
Text File  |  1998-08-12  |  1.4 KB  |  111 lines
  1. %%BeginFile: lw8_level2_colorimage-2.2
  2. /rgbclut Z
  3. /hival Z
  4. /bpc2h
  5. {
  6. bpc dup 8 eq
  7. {
  8. pop 255
  9. }{
  10. 4 eq
  11. {
  12. 15
  13. }{
  14. 3
  15. }ifelse
  16. }ifelse
  17. }bd
  18. /:k
  19. {
  20. /rgbclut xs
  21. pop
  22. /hival bpc2h store
  23. [/Indexed $c hival rgbclut]setcolorspace
  24. $j dup begin
  25. /Width iw def
  26. /Height ih def
  27. /Decode[0 hival]def
  28. /ImageMatrix[iw 0 0 ih 0 0]def
  29. /DataSource setupimageproc def
  30. /BitsPerComponent bpc def
  31. /Interpolate smoothflag def
  32. end
  33. image
  34. }bd
  35. /:l
  36. {
  37. $j dup begin
  38. /Width iw def
  39. /Height ih def
  40. /Decode[[currentcolor]length{0 1}repeat]def
  41. /ImageMatrix[iw 0 0 ih 0 0]def
  42. /DataSource setupimageproc def
  43. /BitsPerComponent 8 def
  44. /Interpolate smoothflag def
  45. end
  46. image
  47. datatype dup 5 eq exch 6 eq or{
  48. currentfile 0(%ADOeod)/SubFileDecode filter flushfile
  49. }if
  50. }bd
  51. /:x
  52. {
  53. /DeviceGray setcolorspace
  54. :l
  55. }bd
  56. level3
  57. dup startnoload
  58. /:lm/:l ld
  59. /:xm/:x ld
  60. /:km/:k ld
  61. dup endnoload not dup startnoload
  62. /:km
  63. {
  64. /rgbclut xs
  65. pop
  66. /hival bpc2h store
  67. [/Indexed $c hival rgbclut]setcolorspace
  68. [0 hival]domskimage
  69. }bd
  70. /:lm
  71. {
  72. [[currentcolor]length{0 1}repeat]
  73. domskimage
  74. }bd
  75. /:xm
  76. {
  77. /DeviceGray setcolorspace
  78. :lm
  79. }bd
  80. /dockeyimg
  81. {
  82. $j begin
  83. /ImageType 4 def
  84. /Decode exch def
  85. /MaskColor exch def
  86. /Width iw def
  87. /Height ih def
  88. /ImageMatrix mkimgmtx def
  89. /BitsPerComponent bpc def
  90. /DataSource setupimageproc def
  91. currentdict
  92. end
  93. image
  94. }bd
  95. /:lt
  96. {
  97. [0 1 0 1 0 1]
  98. dockeyimg
  99. }bd
  100. /:kt
  101. {
  102. /rgbclut xs
  103. pop
  104. /hival bpc2h store
  105. [/Indexed $c hival rgbclut]setcolorspace
  106. [0 hival]
  107. dockeyimg
  108. }bd
  109. endnoload
  110. %%EndFile
  111.